home *** CD-ROM | disk | FTP | other *** search
- on sel4
- global bore, sel, t1, drums, st
- light()
- set bore to bore + 1
- borecheck()
- set sel to 4
- if drums = 0 then
- set st to 0
- puppetSound(1, 0)
- puppetSound(1, 203)
- set drums to 1
- end if
- if t1 = 2 then
- puppetSound(4, 0)
- puppetSound(3, 0)
- puppetSound(3, 7)
- set t1 to 3
- else
- puppetSound(4, 0)
- puppetSound(3, 0)
- puppetSound(3, 8)
- set t1 to 2
- end if
- end
-